home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / Recognize.94.cpt / Recognize .94 / card_5475.txt < prev    next >
Text File  |  1988-11-13  |  3KB  |  132 lines
  1. -- card: 5475 from stack: in.94
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3394
  5. -- name: getdata
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global theline
  9.   put empty into bkgnd field screen
  10.   put empty into theline
  11.   put "Now updating your user stats" into bkgnd field "Status"
  12. end opencard
  13.  
  14. on closecard
  15.   show bkgnd button "Node 1"
  16.   show bkgnd button "Node 2"
  17. end closecard
  18.  
  19.  
  20. on idle
  21.   global getdata,receive,theline
  22.   put empty into newln
  23.   put empty into theString
  24.   if receive is true then
  25.     repeat 1
  26.       put empty into newln
  27.       put recvUpTo(return,5,"") into newIn
  28.       put newIn after theString
  29.     end repeat
  30.     if the length of theString > 0 then
  31.       put theString after bkgnd field "screen"
  32.       repeat while the number of lines in bkgnd field "screen" > 24
  33.         delete first line of bkgnd field "screen"
  34.       end repeat
  35.       if thestring contains "RETURN" then sendsport 1,false,return
  36.       if getdata is true then
  37.         add 1 to theline
  38.         if theline is 18 then dothedatapart
  39.       end if
  40.     end if
  41.   end if
  42.  
  43. end idle
  44.  
  45. on dothedatapart
  46.   global startseconds
  47.   put the seconds into startseconds
  48.   repeat 4
  49.     delete line 1 of bkgnd field screen
  50.   end repeat
  51.   global theusername, thecalls,todaycalls,lastuser,yourlast,thiscall
  52.   global yourcalls,posts,email,uploads,downloads
  53.  
  54.   put word 3 to 4 of line 1 of bkgnd field screen into theusername
  55.   put word 2 of line 2 of bkgnd field screen into thecalls
  56.   delete char 1 of thecalls
  57.   delete last word of thecalls
  58.   put word 1 of line 3  of bkgnd field screen into todaycalls
  59.   put word 2 to 4 of line 4  of bkgnd field screen into lastuser
  60.   repeat 5
  61.     delete char 1 of lastuser
  62.   end repeat
  63.   put line 5  of bkgnd field screen into yourlast
  64.   repeat 15
  65.     delete char 1 of yourlast
  66.   end repeat
  67.   put line 6  of bkgnd field screen into thiscall
  68.   repeat 10
  69.     delete char 1 of thiscall
  70.   end repeat
  71.   put word 4 to 5 of line 7  of bkgnd field screen into yourcalls
  72.   put last word of line 9  of bkgnd field screen into posts
  73.   repeat 6
  74.     delete char 1 of posts
  75.   end repeat
  76.  
  77.   put last word of line 10  of bkgnd field screen into email
  78.   repeat 5
  79.     delete char 1 of email
  80.   end repeat
  81.   put last word of line 11  of bkgnd field screen into uploads
  82.   repeat 8
  83.     delete char 1 of uploads
  84.   end repeat
  85.   put last word of line 12  of bkgnd field screen into downloads
  86.   repeat 10
  87.     delete char 1 of downloads
  88.   end repeat
  89.   beep
  90.   putthedata
  91.   beep
  92.   go to card mainmenu
  93. end dothedatapart
  94.  
  95. on putthedata
  96.   global theusername,thiscall,yourcalls,posts,email,uploads,downloads
  97.   go to card "User Stats"
  98.   put theusername into card field username
  99.   put thiscall into card field lastcall
  100.   put yourcalls into card field calls
  101.   put posts into card field "posts"
  102.   put email into card field "Email"
  103.   put uploads into card field "Uploads"
  104.   put downloads into card field "Downloads"
  105. end putthedata
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112. -- part contents for background part 10
  113. ----- text -----
  114. Now updating your user stats
  115.  
  116. -- part contents for background part 3
  117. ----- text -----
  118.  
  119. Welcome back CW NORMAN
  120. Call #1710
  121. 33 calls so far today
  122. Last User:SYSOP
  123. Your last call:5:17:36 PM on 11/12/88
  124. This call:7:51:57 PM on 11/12/88
  125. You have called 21 times.
  126. Your:
  127. Posts:3
  128. Mail sent:4
  129. Uploads:0
  130. Downloads:38
  131.  
  132.